24
Form1.Caption = "Anda telah menekan tombol"
Msgbox “tombol telah ditekan”, vbExclamation, “pemberitahuan”
End Sub
Gambar 2.17 Contoh dari penggunaan Message Box
Ketika command button ditekan
maka akan
muncul
message box seperti
ada pada gambar diatas.
Menggunakan shape untuk animasi led. Contoh programnya yaitu :
Dim a As Integer
Private Sub Timer1_Timer()
a = a + 1
If a = 5 Then
Form1.Caption = "setelah 5 detik"
Shape1.BackColor = vbRed
 |