Gerkenler:

2 Tane TextBox
2 Tane Label
1 Tane Button

istediğim şekilde yerleştiriyoruz bunları

Form1'e bu kodları giriyoruz :

Private Sub Command1_Click()
If Text1 = "Kullanıcı Adı" And Text2 = "Şifre" Then
Me.Hide
Form2.Show
MsgBox " Giriş Başarılı"
Else

If Text1 = "Kullanıcı Adı" And Text2 = "Şifre" Then
Me.Hide
Form1.Show
Else
If Text1 = "" And Text2 = "" Then
MsgBox "Kullanıcı adı ve şifreyi girin"
End If
End If
End If
End Sub


Sonra bir form daha açıyoruz form2 oluyor

Sonrada exe yapıyoruz

Mantık:
Kullanıcı adı ve şifreyi girince form2'yi açıyor form1 kapanıyor form1'i istediğiniz gibi düzenleyin orasi giriş yapılmış kısım