Private Sub comboStatus_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles comboStatus.MouseWheel
        Try
            Dim mwe As HandledMouseEventArgs = DirectCast(e, HandledMouseEventArgs)
            mwe.Handled = True
        Catch ex As Exception
	    End Try
End Sub