代码如下:
Option Explicit
Private Type makelong
l As Long
End Type
Private Type makesingle
f As Single
End Type
Private Sub Form_Load()
Dim tl As makelong
Dim tf As makesingle
tl.l = &H44960000
LSet tf = tl
Debug.Print tf.f
End Sub