Right Click - MouseDown - 
    ==========================
    
      Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    
        If Button = 2 Then

            sub_form.main_form.Show vbModal, Me

        End If
        
  End Sub