直接在左侧工具栏拖过来就行了~~拖一个文本框,三个按钮。
Private Sub Command1_Click()
MsgBox "确定成功"
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "确定"
Command2.Caption = "重置"
Command3.Caption = "退出"
End Sub