Message Box Input Box LOGO Message Box Input

������ Message. Box. Input. Box LOGO

������ Message. Box. Input. Box 1 ������ Message. Box 2 ������ Input. Box www. themegallery. com

������ Message. Box ����������� Vb. Critical แสดงไอคอน Critical Message Vb. Exclamation แสดงไอคอน Earning Message Vblnformation แสดงไอคอน Information Message Vb. Question Message แสดงไอคอน

������ Msg. Box ����������� Private Sub Form_Load() Dim response As Variant response = Msg. Box("Are you sure? ", vb. Question + vb. Yes. No, "Please answer me : )") If response = vb. Yes Then Msg. Box " hello : )" Else Msg. Box " bye : (" End If End Sub www. themegallery. com

������ Message. Box ������� Private Sub Command 1_Click() Dim score As Integer score = Text 1. Text If score <= 49 Then Msg. Box "your grade = f" Else. If score <= 59 Then Msg. Box "your grade = d" Else. If score <= 69 Then Msg. Box "your grade = c" Else. If score <= 79 Then Msg. Box "your grade = b" Else Msg. Box "your grade = a" End If End Sub Private Sub Command 2_Click() End Sub