Struktur if

Bentuk deasain :

keterangan gamabar :
Label1 =>(Text = Masukan)
Label2 =>(Text = Hasil)

Text1 => (Name = masukan)
Text2 => (Name = hasil)

Button1 => (Text = if tunggal) & (Name = tunggal)
Button2 => (Text = if ganda) & (Name = ganda)
Button3 => (Text = if majemuk) & (Name = majemuk)
Button4 => (Text = Hapus) & (Name = hapus)
Button5 => (Text = Keluar) & (Name = keluar)

list program :

Public Class Form1

    Private Sub tunggal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tunggal.Click

        If masukan.Text = "11111" Then
            hasil.Text = "Rief_dels"
        End If

    End Sub

    Private Sub ganda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ganda.Click

        If masukan.Text = "11111" Then
            hasil.Text = "Rief_dels"
        Else
            hasil.Text = "Anda Tidak Terdaftar !!!"
        End If

    End Sub

    Private Sub majemuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles majemuk.Click

        If masukan.Text = "11111" Then
            hasil.Text = "Rief_dels"
        ElseIf masukan.Text = "22222" Then
            hasil.Text = "Saling Berbagi"
        Else
            hasil.Text = "Anda Tidak Terdaftar !!!"
        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        masukan.Text = ""
        hasil.Text = ""
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        End
    End Sub
End Class

Semoga bermanfaat.