Visual Basic 6 - SCEGLIERE FRA COMMAND1 O COMMAND2

HO QUESTO TIPO DI PROBLEMA DA RISOLVERE :

HO UN FORM DI NOME 1 DOVE CI SONO 2 PULTANTI (COMMAND1 E COMMAND2) E UN FORM DI NOME 2.
IL PUNTO E' QUESTO: NEL FORM DUE CI SONO DUE ISTRUZIONI CHE VENGONO ESEGUITE ALL'APERTURA.

Private Sub FormDUE_Load()
nuova = Nuovo.Text1.Text
nuova = Scelta.Text1.Text

QUELLO CHE VORREI FARE E'INSERIRE QUI' UNA ISTRUZIONE CHE MI SCELGA UNA DELLE DUE
DOPO LA PRESSIONE DI UNO DEI DUE PULSANTI NEL FORM1
MI SPIEGO MEGLIO E' POSSIBILE SCRIVERE CHE SE ALLA PRESSIONE DEL PULSANTE COMMAND1 (FORM1)
DEVI ESEGUIRE LA PRIMA ISTRUZIONE E ALLA PRESSIONE DEL PULSANTE COMMAND2 (FORM1) DEVI ESEGUIRE LA SECONSA.
sPERO DI ESSERE STATO CHIARO GRAZIE TANTE.

Io programma in vb.net ma questa soluzione dovrebbe andare, anche se nn è da programmatori bravissimi...
Metti due checkbox nel form2.
E al click di uno dei due pulsanti nel form1 cambia la propietà checked nel form2.
Questo è il codice in vb.net. Modificalo un po per il vb6.

Spero ti sia utile...
Form1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form2.CheckBox1.Checked = True
        Form2.CheckBox2.Checked = False
        Form2.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.CheckBox1.Checked = False
        Form2.CheckBox2.Checked = True
        Form2.Show()
    End Sub
End Class

Form2

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckBox1.Visible = False
        CheckBox2.Visible = False
        If CheckBox1.Checked Then
            'prima scelta
        End If
        If CheckBox2.Checked = True Then
            'seconda scelta
        End If
    End Sub
End Class

1) Non scrivere in maiuscolo
2) Rileggi quello che scrivi dato che hai fatto vari errori di battitura
3) Spiegati meglio

Secondo me una buona soluzione è: inserire nell'evento click dei due pulsanti il richiamo ad una subroutine pubblica del form2 a cui passi un parametro:

Private sub Command1_click

Form2.Mostra 1

Private sub Command2_click

Form2.Mostra 2

Naturalmente --Mostra-- è totalmente arbitrario
Nella form2 scrivi la sub pubblica:

Public sub Mostra (i as integer)

if i=1 then
nuova = Nuovo.Text1.Text
else
nuova = Scelta.Text1.Text
end if

Me.show

end sub

Ciao