19-11-13, 05:11 PM
كود :
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim numPtr12 As UInt32 ModOpt(IsLong)* = DirectCast((&H13C5140(&H1D4)(4) + &HB8), UInt32 ModOpt(IsLong)*)
<Module>.W1 = numPtr12(0)
Me.Label3.Text = ("Profile 1 Was Saved")
End Sub