[alims]

عندى سوال و هو عندى هذا الكود و يعمل بنجاح

كود :

  Sub SignOut()
       If con.State = ConnectionState.Open Then con.Close()
       Form1.Panel1.Visible = False
       Form1.ContextMenuStrip1.Enabled = False
       Form1.Button4.Visible = False
           End Sub

و هو داخل Module
ارويد استخدام هذا الكود 

كود :

Form1_Load(Nothing, Nothing)

ولكن لم انجاح 

كود :

  Sub SignOut()
       If con.State = ConnectionState.Open Then con.Close()
       Form1.Panel1.Visible = False
       Form1.ContextMenuStrip1.Enabled = False
       Form1.Button4.Visible = False
       AddHandler Form1.Load(Nothing, Nothing)
   End Sub