ST0001-1-
-2-
-3-
-4-
BorderStyle ControlBox, MinButton, MaxButton True False True False Top Left Height,Width Caption Icon True/False -5-
Basic Command1 Click MsgBox " " Command1 Click Command1 Click -6-
MsgBox MsgBox MsgBox -7-
Private Sub Command1_Click Dim inti% ' 1 MsgBox " " ' 2 MsgBox " ", vbinformation ' 3 MsgBox " ", vbinformation, " " ' 4 inti% = MsgBox ", _ ' 5 vbinformation + vbyesno," " If inti% = vbyes Then ' 6 MsgBox " " Else MsgBox " " End If End Sub -8-
MsgBox " " MsgBox, vbinformation vbinformation vbinformation vbinformation vbinformation MsgBox vbcritical 16,vbQuestion 32,vbExclamation 48 _ MsgBox vbinformation vbyesno vbyesno MsgBox inti% MsgBox -9-
MsgBox integer inti%= MsgBox inti% MsgBox inti% Option Explicit inti% inti% vbyesvbno inti% If If inti% = vbyes Then inti% vbyes inti% vbyes Then MsgBox " " Else inti% vbyes MsgBox " " If End If -10-
Private Sub Command1_Click Dim inti% MsgBox " " MsgBox " ", 64 MsgBox " ", 64, " " inti% = MsgBox ", _ 64 + 4," " If inti% = 6 Then MsgBox " " Else MsgBox " " End If End Sub -11-