Form Login dan Source Kodesederhana Tanpa Databee (daam tahap Pengembangan)

 

Private Sub Command1_Click()
If Text1.Text = "Lisence" Then
If Text2.Text = "masterlove007" Then
Form3.Show
Form1.Hide

End If
End If

End Sub

Private Sub Command2_Click()
badawi = MsgBox("Are you sure to exit?", vbInformation + vbYesNo, "warning")
If (badawi = vbYes) Then
End
End If
End Sub

Private Sub Label4_Click()
Form2.Show
Form1.Hide

End Sub

 

Private Sub Command2_Click()
Form1.Show
Form2.Hide

End Sub

Private Sub Command3_Click()
badawi = MsgBox("Are you sure to exit?", vbInformation + vbYesNo, "warning")
If (badawi = vbYes) Then
End
End If
End Sub