
Private Sub mnuBorder3D_Click()
lblMenu.BorderStyle = 1
End Sub
Private Sub mnuBorderNone_Click()
lblMenu.BorderStyle = 0
End Sub
Private Sub mnuColorRed_Click()
lblMenu.BackColor = vbRed
End Sub
Private Sub mnuColorWhite_Click()
lblMenu.BackColor = vbWhite
End Sub
Private Sub mnuColorYellow_Click()
lblMenu.BackColor = vbYellow
End Sub
Private Sub mnuMainExit_Click()
End
End Sub
Private Sub mnuMessageOne_Click()
lblMenu.Caption = "A Menu Application"
End Sub
The End statement provides a way to force your program
to halt. For normal termination of a Visual Basic
program, you should unload all forms.
|