เรื่อง MsgBox ครับผม สิ่งที่อยากให้เป็น เวลาผมกรอก 12345 ทั้ง Text1 และ Text2 มันจะโหลด ฟอร์ม 1 มาให้ครับ

 Quote:
Private Sub Command1_Click() ของเดิม
   If Text1.Text = "12345" And Text2.Text = "12345" Then
      Form1.Show
   End If
   If Text1.Text = "" And Text2.Text = "" Then
      MsgBox ("กรุณากรอก Username และ Password")
   Else: MsgBox ("Username หรือ Password ไม่ถูกต้อง !!!")
   End If
End Sub

แก้เป็น

Private Sub Command1_Click()
   If Text1.Text <> "12345" AND Text2.Text <> "12345" Then <- ถ้า 2 ช่องไม่ใช่ "12345"
      Else: MsgBox ("Username หรือ Password ไม่ถูกต้อง !!!")
   ElseIf Text1.Text = "" AND Text2.Text = "" Then <- ถ้าไม่ใส่อะไรเลย
      MsgBox ("กรุณากรอก Username และ Password")
   ElseIf Text1.Text = "12345" AND Text2.Text = "12345" Then <- ถ้า 2 ช่อง = "12345"
      Form1.Show
   End If
End Sub

Private Sub Command1_Click()
   If Text1.Text <> "12345" And Text2.Text <> "12345" Then '<- ถ้า 2 ช่องไม่ใช่ "12345"
      MsgBox ("Username หรือ Password ไม่ถูกต้อง !!!")
   ElseIf Text1.Text = "" And Text2.Text = "" Then '<- ถ้าไม่ใส่อะไรเลย
      MsgBox ("กรุณากรอก Username และ Password")
   ElseIf Text1.Text = "12345" And Text2.Text = "12345" Then '<- ถ้า 2 ช่อง = "12345"
      Form1.Show
   End If
End Sub