Foro de elhacker.net

sub form_load()
   if command="minimized" then me.visible=false
end sub
 

sub form_load()
   if command="boot" then me.visible=false
end sub
 

Private Sub Form_Load()
If Command() = "dato" Then
MsgBox "PEGASTE"
Else
 
End If
End Sub

Show

Private Sub Form_Load()
    If Command = "HI" Then MsgBox "No hay errores!"
End Sub
 

Option Explicit
 
Private Sub Form_Load()
 
If Command() = "dato" Then
MsgBox "PEGASTE"
End If
 
End Sub
 

Option Explicit
 
Private Sub Form_Load()
 
Text1.Text = Command()
 
End Sub
 
 

 
 
 
 
 
 
Private Sub Form_Load()
Me.Show
Timer1.Interval = 1
If Command = "dato" Then
 
MsgBox "PEGASTE"
Else
 
End If
End Sub
 
Private Sub Timer1_Timer()
 
Form1.Show
 
Timer1.Enabled = False
 
End Sub
 

 
Private Sub Form_Load()
    select case command$
        case "\hide","\main.hide"
            hide
        case "\show","\main.show"
            show
    end select
End Sub
 
 

Private Sub Form_Load()
Me.Show
 
If Command = "dato" Then
 
MsgBox "PEGASTE"
Else
 
End If
Form1.Show
End Sub