[أسامة]

كود :

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