第一個比較短的程式是打在"結束"的那個按鈕裡面
第二個比較長的程式是打在"開始"的那個按鈕裡面
TextBox1 = 帳號後面的
TextBox2 = 密碼後面的


----------------------------------------------------------


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

--------------------------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim APEN As Integer

If TextBox1.Text = "APEN" Then
If TextBox2.Text = 1234 Then
MsgBox("APEN!歡迎你", MsgBoxStyle.Information)
Else
MsgBox("對不起!密碼錯誤!", MsgBoxStyle.Critical)
End If
Else
MsgBox("對不起!帳號錯誤!", MsgBoxStyle.Critical)
End If

End Sub