> Private Sub KeluarProgram()
> > For Each Form In Forms
> > If FormName <> MDI Then
> > Unload Form
> > Endif
> > Next
> > End Sub
>
>
> dgn keterangan nama MDIFormName= MDI
> but g kenal tuh ma FormName, ini maksudnya parameter atau apa yah???
> mohon pencerahanya
> makasi...
>
modif dikit...
Private Sub KeluarProgram()
Dim f as Form
For Each f In Forms '-> Forms adl collection
' yg berisi loaded form
' "mdi_Main" diganti dengan object name dari
' form mdi di project anda
If Not f Is mdi_Main Then
Unload f
Endif
Next
End Sub
salam,
huda
------------------------ Yahoo! Groups Sponsor --------------------~-->
<font face=arial size=-1><a
href="http://us.ard.yahoo.com/SIG=12h865blj/M=362131.6882499.7825260.1510227/D=groups/S=1705115364:TM/Y=YAHOO/EXP=1123403668/A=2889191/R=0/SIG=10r90krvo/*http://www.thebeehive.org
">Get Bzzzy! (real tools to help you find a job) Welcome to the Sweet Life
- brought to you by One Economy</a>.</font>
--------------------------------------------------------------------~->
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
