Penggunaan IF & THEN dan ELSE vb6

Pada vb6 bahasa yang membedakan dengan bahasa pemprograman yang lain adalah pada IF dan then yang terdapat di vb6, jika di C++ penggunaan if dengan struktur IF(blablabla=blablabla){blablabla} maka pada vb6 menggunakan bahasa yang bisa dikatakan hampir murni bahasa inggris seperti IF a=a THEN b=b tanpa menggunakan kode tambahan kecuali tanda "" untuk menunjukkan string yang tidak terdapat pada text atau label atau di menu yang sudah terdapat pada vb6.

Contoh pembuatan program yang menggunakan if dan then pada vb6 adalah buatlah form dengan 1 text 2 label, 1 timer dan 2 command, text pada command pertama ganti dengan Zoom dan text pada Command2 ganti dengan Lihat Tulisan, Setting timer interval 500 dan Enabled False, lihat gambar dibawah:

 

Kemudian Klik 2 kali form dan hapus kode yang sudah ada dan masukkan kode dibawah ini:

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
If Text1 = "" Then
MsgBox "Anda belum menuliskan sesuatu"
Else
MsgBox (Text1)
End If
End Sub

Private Sub Timer1_Timer()
Text1.FontSize = Text1.FontSize + 10
If Text1.FontSize > 32 Then
Timer1.Enabled = False
End If
End Sub
 

Maka jika command Zoom diklik font otomatis akan berukuran lebih besar dan dan ketika ukuran font lebih dari 32 maka otomatis zooming berhenti, dan ketika command Lihat Tulisan diklik dan text1 masih kosong, maka akan keluar msgbox dengan kalimat "Anda belum menuliskan sesuatu" dan jika text1 sudah berisi tulisan apa saja maka msgbox yang keluar sesuai dengan kalimat atau kata atau huruf yang diketikkan pada text1.