🚀 go-pugleaf

Witam
Mam prosta procedure.
6 CommandButon -cmdg(Index)
Klikniecie na ktorymkolwiek robi :
klikniety visible.false (pod cmd jest picturebox zielony)
pozostale visible.true
pojawia sie jakis label
i przejscie do procedury ktora trwa ok 5s.
Chodzi o szybkosc wyswietlania na formie. Mimo, ze visible jest na poczatku, 
to zmiany na formie sa widoczne jak zakonczy te dluga procedure. Probowalem 
juz Sleep, oraz
 cmdg(Index).Visible = False
If cmdg(Index).Visible = False then
 skok do procedury
End If
i idzie do procedury mimo, ze na formie nie ma zmian, bo juz niby jest 
niewidoczny(programowo).
Gdy odpalam krokowo, to oczywiscie dziala poprawnie.
Co mozna zrobic, zeby przed\wejsciem do procedury ktora trwa 5s, najpierw 
wykonal to co ma do zrobienia na formie?
Procedurka
Private Sub cmdG_Click(Index As Integer)
Dim i As Single
cmdG(Index).Visible = False
lblG.Caption = "Ustawianie głowicy nr " & Index
lblGl.Caption = "Głowica nr " & Index

For n = 1 To 6 'zerowanie zmiennej G i powrot cmd
    If G(n) = 1 Then
    G(n) = 0
    cmdG(n).Visible = True
    Else
    End If
Next n

G(Index) = 1

'do proc odczyt danych
 GId = Index
init_glow
odczyt_DO 'to procedura ktora trwa 5 sek
End Sub

Pozdrawiam
MarekF