userform repint for schleife
27.09.2007 14:05:03
chris
ich habe mal einen frage und hoffe ihr habt hilfe für mich...
Ich starte eine Userform und möchte diese gerne "hübsch" öffnen lassen.
Habe es so versucht.Klappt auch nur was mich stört ist das ständige flackern der form beim öffnen
wegen der schleife.
Lässt sich das irgendwie vermeiden ?
danke für eure Hilfe gruß Chris
Private Sub UserForm_Activate()
Dim x
Me.Height = 50
Me.Width = 0
For x = 50 To 525
Me.Repaint
Sleep 2
Me.Width = x
Me.Height = x
Next
End Sub