มือใหม่อยากสอบถามเกี่ยวกับเรื่องคำสั่ง Call มีเงื่อนไขในการเรียกใช้ยังไงบ้างครับ [Windows App]

Public Class Form2
    Public CheckLogin As Boolean = False
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
    Public Sub CheckIn(strUser As String, strPass As String)
        MessageBox.Show(strUser + vbCrLf + strPass)
        CheckLogin = True
    End Sub
    Public Function CheckUser(strUser As String, strPass As String) As Boolean
        MessageBox.Show(strUser + vbCrLf + strPass)
        Return CheckLogin
    End Function
End Class

Public Class Form1


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Hide()
        Dim f As Form2 = New Form2()
        f.ShowDialog()
        f.CheckIn("LAMAKA.TOR", "LAMAKA")
        MessageBox.Show(f.CheckUser("LAMAKA.TOR", "LAMAKA"))
        If f.CheckLogin = False Then
            Me.Close()
        Else
            Me.Show()
        End If
    End Sub
End Class