| View previous topic :: View next topic |
| Author |
Message |
wofo Expert Cheater
Reputation: 0
Joined: 12 Aug 2007 Posts: 211
|
|
| Back to top |
|
 |
Trow Grandmaster Cheater
Reputation: 2
Joined: 17 Aug 2006 Posts: 957
|
Posted: Wed Oct 24, 2007 4:38 pm Post subject: |
|
|
what,
Private Sub Command1_Click()
Dim A As Form
Set A = New Form1
A.Show
End Sub? _________________
Get kidnapped often. |
|
| Back to top |
|
 |
atom0s Moderator
Reputation: 205
Joined: 25 Jan 2006 Posts: 8587 Location: 127.0.0.1
|
Posted: Wed Oct 24, 2007 6:08 pm Post subject: |
|
|
Eh... another pointless program -.-;
But.. if you 'have' to know..
| Code: | Option Explicit
Private Sub Form_Load()
Dim szAppName As String
szAppName = App.EXEName & ".exe"
Shell App.Path & "/" & szAppName
End Sub |
_________________
- Retired. |
|
| Back to top |
|
 |
wofo Expert Cheater
Reputation: 0
Joined: 12 Aug 2007 Posts: 211
|
Posted: Thu Oct 25, 2007 3:52 pm Post subject: |
|
|
wiccaan are you trying to hack me? _________________
! 10\/3 1337
Happy Cheating guys |
|
| Back to top |
|
 |
atom0s Moderator
Reputation: 205
Joined: 25 Jan 2006 Posts: 8587 Location: 127.0.0.1
|
Posted: Thu Oct 25, 2007 7:56 pm Post subject: |
|
|
| wofo wrote: | | wiccaan are you trying to hack me? |
Umm.. no? _________________
- Retired. |
|
| Back to top |
|
 |
TheIndianGuy Advanced Cheater
Reputation: 102
Joined: 14 Jan 2007 Posts: 88
|
Posted: Thu Oct 25, 2007 9:49 pm Post subject: |
|
|
| wofo wrote: | | wiccaan are you trying to hack me? |
i lol'd |
|
| Back to top |
|
 |
Pseudo Xero I post too much
Reputation: 0
Joined: 16 Feb 2007 Posts: 2607
|
Posted: Thu Oct 25, 2007 11:55 pm Post subject: |
|
|
| wofo wrote: | | wiccaan are you trying to hack me? |
LOL. _________________
| haxory' wrote: | can't VB do anything??
windows is programmed using VB right? correct me if im wrong.
so all things in windows you have like the start menu is a windows form too. |
|
|
| Back to top |
|
 |
Mussy69 Grandmaster Cheater
Reputation: 0
Joined: 09 Mar 2007 Posts: 842 Location: Sydney
|
Posted: Fri Oct 26, 2007 5:57 am Post subject: |
|
|
| wofo wrote: | | wiccaan are you trying to hack me? |
U asked for helping ur getting it so accept it _________________
|
|
| Back to top |
|
 |
NothingToShow Grandmaster Cheater Supreme
Reputation: 0
Joined: 11 Jul 2007 Posts: 1579
|
Posted: Fri Oct 26, 2007 6:03 am Post subject: |
|
|
Ive never really tried this but what about
On form load:
|
|
| Back to top |
|
 |
atom0s Moderator
Reputation: 205
Joined: 25 Jan 2006 Posts: 8587 Location: 127.0.0.1
|
Posted: Fri Oct 26, 2007 7:12 am Post subject: |
|
|
| Moller wrote: | Ive never really tried this but what about
On form load:
|
This wont do anything but ensure that Form1 is shown. Plus it wont do anything as it's not coded properly.
To do what you want you would need to do something like this:
| Code: | Private Sub form_load()
On Error Resume Next '// Because errors will happen..
'// Create Blank Form Object
Dim objBlankForm As Form1
'// Create Soon To Be Object
Dim objNewForm As Object
'// Set The New Objects Then
'// Create The Never Ending Loop ;)
Set objBlankForm = New Form1
Set objNewForm = objBlankForm
objNewForm.Show
End Sub |
_________________
- Retired. |
|
| Back to top |
|
 |
|