Formumuza 1 adet button 2 adet textbox ekleyelim.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "............." And TextBox2.Text = "................" Then
            MsgBox("Hoşgeldiniz", MsgBoxStyle.Information, "Hoşheldiniz")
            Form2.Show()
        Else
            MsgBox("Hatalı Kullanıcı Adı veya Şifre Girdiniz", MsgBoxStyle.Critical, "Hata")
        End If
    End Sub
End Class