Private Sub Command1_Click()

Label1.Caption = "비쥬얼베이직"

End Sub