비주얼베이직 해석 가능하신가요

dim switch1 As Integer
 
 
Private Sub Command1_Click()
switch1 = 1
Call switchon
End Sub
 
 
Private Function switchon()
If (switch1 = 1) Then
    sleep 3000
    MsgBox "스위치 켜짐"
    switch1 = 0
End If
End Function

Dim WithEvents TM As Timer
Dim CK As Boolean
 
Private Sub Command1_Click()
 
    If TM Is Nothing Then Set TM = Controls.Add("vb.Timer", "TM"): TM.Interval = 1500
 
    CK = Not CK
 
    Command1.Caption = Choose(CK + 2, "스위치 ON", "스위치 Off")
 
    TM.Enabled = True
 
End Sub
 
 
Private Sub TM_Timer()
 
    TM.Enabled = False
 
    If CK Then
 
        MsgBox "스위치 ON"
 
    Else
 
        MsgBox "스위치 Off"
 
    End If
 
End Sub