[bho007]

Code

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Sub MouseClickCenter()
        Dim x As Integer = CInt(Me.Left + (Me.Width / 2))
        Dim y As Integer = CInt(Me.Top + (Me.Height / 2))
        Cursor.Position = New Point(x, y)
        mouse_event(&H2, 0, 0, 0, 0)
        mouse_event(&H4, 0, 0, 0, 0)
    End Sub

i have made you this code try it 🤝