Visual Basic NET ( 3)



- 2


Private Sub MenuItem1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

Me.BackColor = Color.Blue ' -

End Sub

 

Private Sub MenuItem2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Me.BackColor = Color.Red ' -

End Sub

 

Private Sub MenuItem3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

Button1.Width = Button1.Width + 20 ' -

End Sub

 

Private Sub MenuItem4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuItem4.Click

Button1.Width = Button1.Width - 20 ' -

End Sub

. VB , . .