>2
これでいいですか?
Private Sub Command1_Click()

End

End Sub