Diklogi

Code programnya :

Dim test2 As Integer

Private Sub Command1_Click(Index As Integer)
Dim test1 As String
test1 = "Nusantara"
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3

End Sub

Private Sub Command2_Click()
test2 = 10
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Private Sub Command3_Click()
Const test3 As Single = 90.55
Label1.Caption = test1
Label2.Caption = test2
Label3.Caption = test3
End Sub

Salam ilmu pengetahuan ^^