Gambar 1: Contoh Kode |
Potongan kode berikut menampilkan kotak pesan yang mengatakan "Hello, World!":
Private Sub Form_Load() ' Execute a simple message box that says "Hello, World!" MsgBox "Hello, World!"End Sub
Potongan ini membuat counter yang bergerak naik 1 setiap detik (label dan kontrol waktu perlu ditambahkan ke form agar dapat bekerja bekerja):
Option Explicit Dim Count As Integer Private Sub Form_Load() Count = 0 Timer1.Interval = 1000 ' units of milliseconds End Sub Private Sub Timer1_Timer() Count = Count + 1 Label1.Caption = Count End Sub
Tidak ada komentar :
Posting Komentar