[alhaj1982]

السلام عليكم و رحمة الله
ممكن مساعدة في السؤال قي المرفقات

[3booody]

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       MsgBox("Welcome")
   End Sub

   Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
       TextBox2.Text = "none"
   End Sub

   Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       Me.BackColor = Color.Yellow
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       Label1.Visible = False
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.BackColor = Color.Black
       ComboBox1.Items.AddRange(New String() {"Value1", "Value2", "Value3"})
   End Sub
End Class