لود فرم شبيه tagvim.ocx

[nasim.gh68]

سلام
من ميخوام وقتي يه دكمه كيك ميشه يه فرم كنارش ظاهر بشه (با افكت خاص!)شبيه tagvim.ocx با كدهاي ويژوال نوشتم ولي موقع لود فرم جالب نميشه در ضمن من ميخوام borderstyle فرمم none باشه اين كد زماني اجرا ميشه كه فرم none نباشه!
كسي نميدونه چكار كنم؟...


Public Sub lform(nform As Form)
Dim pre_height As Integer
pre_height = nform.Height + nform.Top
Dim i As Integer
Dim j As Long
nform.Height = 0
For i = nform.Top To pre_height
nform.Height = nform.Height + 1
Next i
End Sub

[parselearn]

Dim MaxHeight As Integer
'Form 1
Private Sub Command1_Click()
Form2.Height = 0
MaxHeight = 5000
Form2.Show
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Timer1_Timer()
Form2.Height = Form2.Height + 100
If Form2.Height > MaxHeight Then Timer1.Enabled = False
End Sub