combox in rsview32

hi
i am traying to run a combobox in vb but it is not running
can any budy help me.
i have taken a form on which there is a combobox name given for that is x5.and also there is a command button for closing
the screen. the script is as follows

Private Sub Cancelbutton_Click()
Unload Me
End Sub
Private Sub x5_Click()
x5.AddItem "plant1"
x5.AddItem "plant2"
x5.AddItem "plant3"
End Sub

in thisproject i write script as follows

Sub test1()
trail.Show
End Sub

my closing command button is working but item is added
please help me regarding above.
also please tell me how to run a macro from a vb and
thanks and regards