Во-первых, мощные средства языка позволяют обходиться вообще без объявления типов данных. К чему это может привести? Например Вы ошиблись в написании имени переменной и вместо yCurent написали yCurrent. Что у Вас получиться? Две совершенно разные переменные и Вам придется провести несколько часов в "отладочном окне" прежде чем Вы это обнаружите. Поэтому мой совет: всегда объявляйте переменные, а в начале каждого модуля и формы пишите Option Explicit.

    Во-вторых, одна из наиболее опасных ошибок возникает при попытке объявить несколько переменных в одной строке.

Dim x, y, z as Boolean

    Вы думаете что все три переменные получили тип Boolean? Ничего подобного, x, y имеют тип Variant!!! И у Вас в программе снова "глюки"!

'Процедура служит для смены кусора на песочные часы
'и восстановления его после вторичного вызова
Public Sub HourGlass(obj As Object)
    Static ordMouse As Integer
    Static fOn As Boolean

    On Error Resume Next
    'если повторный вызов
    If Not fOn Then
        ordMouse = obj.MousePointer 'запомнить старый
        obj.MousePointer = vbHourglass 'установить новый
        fOn = True 'запомнить, что уже вызывали
        'Если нужно восстановить
    Else
        obj.MousePointer = ordMouse 'восстановить курсор
        fOn = False 'запомнить, что уже восстановили
    End If
End Sub

'Используется для размещения окна
'поверх всех окон Windows
Public Sub OnTopFrame(frmTop As Form, bSetOnTop As Boolean)
    If bSetOnTop = True Then
    ' Размещать окно поверх остальных
SetWindowPos frmTop.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or         SWP_NOMOVE Or SWP_NOACTIVATE
    Else
       ' Не размещать окно поверх остальных
SetWindowPos frmTop.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or     SWP_NOMOVE Or SWP_NOACTIVATE
    End If
End Sub

Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.