vb如何弹出警告框

使用MsgBox函数完成。

MsgBox 函数，在对话框中显示消息。

Private Sub Command1_Click()
    Label1.Caption = Text1.Text
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Label1.Caption = Label1.Caption - 1
    If Label1.Caption = 0 Then
        Timer1.Enabled = False
        Dim Msg, Response, MyString
        Msg = "时间到了！"   ' 定义信息。
        ' 显示信息。
        Response = MsgBox(Msg)
        If Response = vbYes Then   ' 用户按下“是”。
            MyString = "Yes"   ' 完成某操作。
        End If
    End If
End Sub

msgbox("时间到了，请注意！")

msgbox"hello",vbokonly ,"警告！"