1. Contoh Program pada Visual Basic 6.0

Form 1

Private Sub Command1_Click()

Form2.Show

Form1.Hide

Form3.Hide

Form4.Hide

Form5.Hide

End Sub

Private Sub Command2_Click()

Form3.Show

Form1.Hide

Form2.Hide

Form4.Hide

Form5.Hide

End Sub

Private Sub Command3_Click()

Form4.Show

Form1.Hide

Form2.Hide

Form3.Hide

Form5.Hide

End Sub

Private Sub Command4_Click()

Form5.Show

Form1.Hide

Form2.Hide

Form3.Hide

Form4.Hide

End Sub

Form 2

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End Sub

Private Sub Command2_Click()

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

End Sub

Private Sub Command3_Click()

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

End Sub

Private Sub Command4_Click()

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End Sub

Private Sub Command5_Click()

Text3.Text = Val(Text1.Text) * Val(Text1.Text)

End Sub

Private Sub Command6_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

Private Sub Command7_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form5.Hide

End Sub

form 3

Private Sub Check1_Click()

Text1.Text = "JEPANG"

End Sub

Private Sub Check2_Click()

Text1.Text = "INDONESIA"

End Sub

Private Sub Check3_Click()

Text1.Text = "BELANDA"

End Sub

Private Sub Command1_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form5.Hide

End Sub

Form 4

Private Sub Command1_Click()

If Text1.Text >= Text5.Text Then

Text6.Text = 30 - Val(Text5.Text) + Val(Text1.Text)

Else

Text6.Text = Val(Text1.Text) - Val(Text5.Text)

End If

Text7.Text = Val(Text6.Text) * Val(Text4.Text) * Val(Text3.Text)

End Sub

Private Sub Command2_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form5.Hide

End Sub

Form 5

Private Sub Command1_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form5.Hide

End Sub

Private Sub Command2_Click()

End

End Sub