ник: akkorn
Ахахх, здравствуйте)
Все вроде путем, только теперь такая вот кукарача- Радуга уже закрывает некоторые элементы управления :) Но это еще она не сильно размахнулась 
Относительно курсора. Может пригодится. Найдено на просторах великой помойки :)
Если Вам необходимо сделать действие, во время которого пользователю не "рекомендуется" пользоваться мышью (например сделать расчеты), то лучше всего сменить курсор мыши на песочные часы:
'Процедура служит для смены кусора на песочные часы и восстановления его после вторичного вызова
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
Что касается курсора, то можешь поменять его на нужный тебе :) Я думаю прекрасно подошел бы vbCrosshair
Некоторые курсоры:
0 – vbDefault
1 – vbArrow
2 – vbCrossHair
3 – vbIBeam
4 – vbIconPointer
5 – vbSizePointer
6 – vbSizeNESW
7 – vbSizeNS
8 – vbSizeNWSE
9 – vbSizeWE
10 – vbUpArrow
11 – vbHourGlass
12 – vbNoDrop
13 – vbArrowHourGlass
14 – vbArrowQuestion
15 – vbSizeAll
Ну а если подойти с головой, то можно немножко модернизировать эту ф-цию, с выбором курсора при ее запуске :)
Public Sub HourGlass(Obj1 As Object, Optional valCrsr1 As Byte = 0)
Static ordMouse As Integer
Static fOn As Boolean
On Error Resume Next
If valCrsr1 < 0 Or valCrsr1 > 15 Then valCrsr1 = 0
'если повторный вызов
If Not fOn Then
ordMouse = Obj1.MousePointer 'запомнить старый
Obj1.MousePointer = valCrsr1 'valCrsr 'vbHourglass 'установить новый
fOn = True 'запомнить, что уже вызывали
'Если нужно восстановить
Else
Obj1.MousePointer = ordMouse 'восстановить курсор
fOn = False 'запомнить, что уже восстановили
End If
End Sub
На мой скромный взгляд внимания заслуживают курсоры 2,11,12,14,15
Удачки :) 
p.s. Чета не подумал- курсор же нужен не тока в данном приложении))) Ну, можно пообдумать сей момсент, тока позжее, счаз буду занят до завтрава :))))