Form

[khanjan_a2k]

Hi everyone,
I have this program where I am using a special Active X control to do the scrolling of items on each form. I really don't want to go through the repetition of Select Case structures in order to do the scrolling so what I am doing is that I have this variable called frmForm and it is declared as var type Form. I am trying to assign the Form names of the different forms to store the name of the current form. Its like this:

' In a seperate module
Public frmForm As Form
 
' When the main form loads
Private Form_Load()
      frmForm = frmMain
End Sub
 
' In The Active X Control
Private Sub UserControl1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    frmForm.lblComponent(0).BackColor = vbBlue
End Sub

Here I get a "Type Mismatch" Error when in the line frmForm = frmMain

Is there any way to help me out here...? Anyone..?

Any help would be appreciated