例えば、Form1のButton1でForm2を起動するとして
Public Class Form1

    Dim seisou As Form2 'seisouを    Form2として宣言

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        seisou = New Form2　'seisouを初期化
        seisou.Show()　'Form2を起動
    End Sub

    Private Sub Button3_MouseDown(sender As Object, e As MouseEventArgs) Handles Button3.MouseDown
        Select Case e.Button
            Case MouseButtons.Right
                '右クリックで-
                seisou.Label10.Text = CStr(Val(seisou.Label10.Text) - 1)
                seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) - 1)
                  '左クリックで+
            Case MouseButtons.Left
                seisou.Label10.Text = CStr(Val(seisou.Label10.Text) + 1)
                seisou.TextBox1.Text = CStr(Val(seisou.TextBox1.Text) + 1)
        End Select
    End Sub

End Class

こんな感じでどうですか。