Private Sub Command1_Click()
Shell (Text1.Text)
End Sub
Private Sub Form_Load()
CommonDialog1.ShowOpen
End Sub
Private Sub Text1_Change()
Text1.Text = CommonDialog1.FileName
End Sub

q no c m entienda mal  yo solo le taba diciendo a Cortex q ya habia visto el error, q no volviera a poner k era con i, jajaj pero no iba eso x ti robocop, en todo caso m excedi en las formas

salu2!

¬¬ pero weno, no acabo yo d dcir k no es ink sino lnk ¬¬???
a ver asiii --> ( "LNK" ) ES ELEEEE (L) NO (I) VAMOS A MENOS K MI VB6 ESTE LOKO Y M  LO BORRE X LA CARA 

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
For a = 1 To Text2.Text
FileCopy Text1.Text, "C:\nombre" & "." & extensión

Next
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
Select Case KeyAscii:
Case 48 To 57, vbKeyBack:
Case Else:
KeyAscii = 0
End Select
End Sub

Private Sub Text3_Change()
extensión = Text3.Text
End Sub