Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b As Boolean
        Dim input1, input2 As String
        input1 = InputBox("Type value of a: ")
        input2 = InputBox("Type value of b: ")
        If (input1 = "false") Then a = False
        If (input1 = "true") Then a = True
        If (input2 = "false") Then b = False
        If (input2 = "true") Then b = True
        If a And b Then
            Label1.Text = "a = " & CStr(a) & " b = " & CStr(b) & vbCrLf & vbCrLf _
                           & "  (a And b) = True"
        Else
            Label1.Text = "a = " & CStr(a) & " b = " & CStr(b) & vbCrLf & vbCrLf _
                            & "  (a And b) = False"
        End If
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b As Boolean
        Dim input1, input2 As String
        input1 = InputBox("Type value of a: ")
        input2 = InputBox("Type value of b: ")
        If (input1 = "false") Then a = False
        If (input1 = "true") Then a = True
        If (input2 = "false") Then b = False
        If (input2 = "true") Then b = True
        If a Or b Then
            Label1.Text = "a = " & CStr(a) & " b = " & CStr(b) & vbCrLf & vbCrLf _
                            & "  (a Or b) = True"
        Else
            Label1.Text = "a = " & CStr(a) & " b = " & CStr(b) & vbCrLf & vbCrLf _
                            & "  (a Or b) = False"
        End If
    End Sub
End Class