Выдает ошибку sub or function not defined, что делать? - VB

Dim zoom1 As Integer
Dim zoom2 As Integer
Dim color As Long
Private Sub cmdEscala_Click()
Dim i As Long
Dim a As Long
For i = 0 To zoom1
For a = 0 To zoom1
color = (i * (4096 / zoom1) * (a * (zoom2 / 4)))
SetPixel Pic_imagen.hDC, a, i, color
Next a
DoEvents
Next i
End Sub
 
Private Sub cmdFractal_Click()
Dim i As Long
Dim a As Long
For i = 0 To zoom1
For a = 0 To zoom1
color = (i * a * (4096 / zoom1) * (4096 / zoom1))
SetPixel Pic_imagen.hDC, a, i, color
Next a
DoEvents
Next i
End Sub
 
Private Sub cmdZoom_Click()
If cmdZoom.Caption = "Zoom 64" Then
zoom1 = 1024
zoom2 = 16
cmdZoom.Caption = "Zoom 16"
ElseIf cmdZoom.Caption = "Zoom 16" Then
zoom1 = 2048
zoom2 = 8
cmdZoom.Caption = "Zoom 4"
ElseIf cmdZoom.Caption = "Zoom 4" Then
zoom1 = 4096
zoom2 = 0
cmdZoom.Caption = "Zoom 1"
ElseIf cmdZoom.Caption = "Zoom 1" Then
zoom1 = 512
zoom2 = 32
cmdZoom.Caption = "Zoom 64"
End If
End Sub
 
Private Sub Form1_Load()
cmdZoom_Click
End Sub