I have code:
Dim i As Integer
---------------------------
Private Sub cmd1_Click()
Randomize
i = Int(20 * Rnd())
Label1.Caption = i
End Sub
---------------------------
What code should I add...

This code is work only one time, when I do next time it doesn't work it said "Object already loaded". Can you help me again please?
Thanks!
seyha

Please someone help me?

Thanks alots.
Can I ask you more question about this?
What code should I do if I want to have one TextBox and one Command to set the number on TextBox and show it what ever I want?
And How I make...

I have questions are:
If I have one shape on the form, and when I run I want to have 5 shapes on my form. What can I do? Can someone help me?

Thank you so much so much! now it is working. :D
I can't done with you help!!!!!

This what I test:
Don't work:
retval = ShellExecute(Form1.hwnd, "Open", App.Path & "\vbcode\aa.pps", 0&, 0&, 1)
Work:
retval = ShellExecute(Form1.hwnd, "Open", "C:\vbcode\aa.pps", 0&, 0&, 1)

I...

Yes, I have every thing change and have powerpoint too. but I don't know why it doesn't work. Can you test it, it work or not? if it work can you save the fine and send to me please?
thanks so much!...

Can you help me again?
I did the same you told me but it don't happen anything when I run. Do you know why?
And try to do the msgbox, it said "False". What is it mean?
Thank you!

Sorry, that I ask you the question not clear. I want to ask you about the code for chang drive, because when I compile to exe and I want to put it on the CD but it doesn't work because I don't have...

I have one more question. Can you help me please?
If I have file on drive C and my file my is aa.pps so on whatever.pps is C:\aa.pps, that is right? My question is I want to make it to aa.exe and I...

Sorry, Your code it doesn't work. It said "Argument not optional".
Can you hepl me with this problem?
thanks!
Seyha

So what can I do with the problem? Can you make the file for me please?
Thanks! I hope will here from you soon.
seyha

Hi,
I have code to open program that work(on attach files).
My problem is when I change code to open another file it error.
Ex:
Right code:
Call Shell(li & "\" & "Program Files\Microsoft...

Sorry, I don't understand your code. Can you explian it more for me please?
Or can you create it for me please? Thanks!
-------
This is your code:
Dim shell, fso
Set shell =...

Hi,
How can I call the program that have exetension *.pps(PowerPoint Show) ? Not .exe!
thanks! :sad: