Imports System.Runtime.InteropServices

 

Public Class Form1

    Private Structure Bytes4

        Dim b0 As Byte

        Dim b1 As Byte

        Dim b2 As Byte

        Dim b3 As Byte

    End Structure

 

    <StructLayout(LayoutKind.Explicit)> Private Structure SingleAnd4Bytes

        <FieldOffset(0)> Dim Bytes As Bytes4

        <FieldOffset(0)> Dim Float As Single

    End Structure

 

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

        Dim Test As SingleAnd4Bytes

 

        Test.Float = Val(InputBox("Input Float Value"))

        MsgBox("Bytes:" & Str(Test.Bytes.b0) & Str(Test.Bytes.b1) & Str(Test.Bytes.b2) & Str(Test.Bytes.b3))

    End Sub

End Class

Private uint_iModZ As UInteger

Private ModZ As Single

Private ModZ1(3) As Byte

uint_iModZ = ModZ1(0) << 24 + ModZ1(1) << 16 + ModZ1(2) << 8 + ModZ1(3)

ModZ = CType(uint_iModZ, Single)

Public Declare Function GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long) As Long

Private ModZ As Single

Private ModZ1(3) As Byte

GetMem4(ModZ1(0), ModZ)