Rumus Visual Basic 6.0 membuat formulir dengan menggunakan beberapa form

ASSalamualaikum wrb
pada kesempatan ini saya membuat blog cara membuat formulir/ mengisi data dengan menggunakan beberapa form,langsung saja ikuti langkahnya di bawah ini

langkah pertama yang perlu di lakukan adalah:

1. buka aplikasi Visual basic 6.0

2.Buat beberapa form sesuai data yang ingin dimasukkan

3. buat form dengan menggunakan "LABEL,COMMAND BUTTON,dan TEXTBOX" sesuai keinginan,disini ada contoh yang telah saya buat
contoh form 1

contoh form 2,form 2 saya isi dengan 'menu home'

contoh form 3,'formulir'

contoh form4,'pilihan gambar dengan menggunakan combobox'

contoh form 5,'data pribadi'

contoh form 6,'hasil data formulir form 3 yang akan muncul dan di tampilkan di form 6'

setelah kita selesai membuat beberapa form diatas ,sekarang kita masukkan kode / rumus data tersebut, rumus dapat diganti sesuai 'form,label,command button,combobox,dll' sesuai perintah / data yang di buat:

rumus dengan data berdasarkan contoh diatas:

FORM 1

Private Sub Command1_Click()
If Text1.Text = "username anda" And Text2.Text = "password anda" Then
form2.Show
Form1.Hide
ElseIf Text1.Text = "" And Text2.Text = "" Then
e = MsgBox("Anda Belum Memasukkan Username dan Password", vbOKOnly + 48, "WARNING")
Text1.SetFocus
Else
e = MsgBox("Username/Password yang Anda Masukkan Salah !", vbOKOnly + 48, "WARNING")
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
End Sub

Private Sub Label1_Click()
Label1.ForeColor = Rnd * vbBlue
End Sub

Private Sub Timer1_Timer()
Label4.Caption = Time
Label3.Caption = Date
Label4.ForeColor = Rnd * vbBlue
Label3.ForeColor = Rnd * vbGreen
End Sub

Private Sub Timer2_Timer()
Label7.ForeColor = Rnd * vbWhite
Dim loading As String
loading = "Masukkan Username : username anda , Password : password anda"
Counter = Counter + 1
DoEvents
Label7.Visible = Not Label7.Visible
End Sub



FORM 2

Private Sub Command1_Click()
Form5.Show
form2.Hide
End Sub

Private Sub Command2_Click()
Form3.Show
form2.Hide
End Sub

Private Sub Command3_Click()
e = MsgBox("Are You Sure Want to Exit ?", vbOKCancel + 32, "WARNING")
If e = vbOK Then
End
End If
End Sub

Private Sub Command4_Click()
Form4.Show
form2.Hide
End Sub

Private Sub Label1_Click()
Label1.ForeColor = vbBlue
End Sub

FORM 3

Private Sub Command1_Click()
Frame1.Visible = True
End Sub

Private Sub Command2_Click()
form2.Show
Form3.Hide
End Sub

Private Sub Command3_Click()
Form6.Show
Form3.Hide
Form6.Label1.Caption = "NAMA : " & Text1.Text
Form6.Label2.Caption = "NIM : " & Text2.Text
Form6.Label3.Caption = "FAKULTAS/JURUSAN : " & Text3.Text
Form6.Label4.Caption = "ALAMAT : " & Text4.Text
Form6.Label5.Caption = "NO Hp : " & Text5.Text

If Option1.Value = True Then
Form6.Label6.Caption = "JENIS KELAMIN : Laki-laki"
ElseIf Option2.Value = True Then
Form6.Label6.Caption = "JENIS KELAMIN : Perempuan"
Else: Form6.Label4.Caption = "JENIS KELAMIN : bencong!!"
End If
End Sub

Private Sub Form_Load()
Frame1.Visible = False
End Sub

FORM 4

Private Sub Combo1_Change()
If Combo1.Text = "pemandangan" Then
End If
End Sub

Private Sub Command1_Click()
If Combo1.Text = "pemandangan" Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
ElseIf Combo1.Text = "messi" Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
ElseIf Combo1.Text = "barcelona" Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
End If
End Sub

Private Sub Command2_Click()
form2.Show
Form4.Hide
End Sub

Private Sub Command3_Click()
End
End Sub

FORM 5

Private Sub Command1_Click()
form2.Show
Form5.Hide
End Sub

FORM 6

Private Sub Command1_Click()
form2.Show
Form6.Hide
End Sub

Demikian lah contoh membuat formulir dengan menggunakan beberapa form
wassalamualaikum wrb