在Visual Basic（VB）中，坐标的输入通常与鼠标事件相关联。以下是一些基本的方法来捕获和显示坐标：
通过鼠标事件获取坐标
MouseDown事件在鼠标按下时触发，可以获取鼠标的初始位置。
MouseMove事件在鼠标移动时触发，可以实时获取鼠标的位置。
MouseUp事件在鼠标释放时触发，可以获取鼠标的最终位置（如果需要）。
```vb
Private Sub Form_MouseDown（Button As Integer, Shift As Integer, X As Single, Y As Single）
Text1.Text = "坐标（" & X & "," & Y & "）"
End Sub
Private Sub Form_MouseMove（Button As Integer, Shift As Integer, X As Single, Y As Single）
Text1.Text = Text1.Text & vbCrLf & "当前坐标（" & X & "," & Y & "）"
End Sub
```
在这个示例中，当鼠标按下时，`MouseDown` 事件会记录下初始坐标，并在 `MouseMove` 事件中实时更新坐标并显示在 `Text1` 文本框中。
通过键盘事件获取坐标
KeyPress事件在按下键盘键时触发，可以通过检测按下的键来获取特定坐标。
```vb
Dim x1, y1 As Single
Private Sub Form_KeyPress（KeyAscii As Integer）
If KeyAscii = Asc（"A"） Then
x1 = MouseX
y1 = MouseY
Text1.Text = "坐标（" & x1 & "," & y1 & "）"
ElseIf KeyAscii = Asc（"S"） Then
Text2.Text = "坐标（" & x1 & "," & y1 & "）"
End If
End Sub
```
在这个示例中，当按下“A”键时，程序会记录下当前鼠标位置作为坐标点，并将其显示在 `Text1` 文本框中。当按下“S”键时，之前记录的坐标点会显示在 `Text2` 文本框中。
坐标系变换
VB中的坐标系默认是以左上角为原点，向右为X轴正方向，向下为Y轴正方向。如果需要变换坐标系，可以使用控件的 `Scale` 方法。
```vb
Private Sub Form_Load（）
Dim X1 As Double, Y1 As Double, X2 As Double, Y2 As Double
Dim LX1 As Double, LY1 As Double, LX2 As Double, LY2 As Double
' 设置窗体坐标系
Form1.Scale （-50, 50）-（50, -50）
' 设置Picture1控件坐标系
Picture1.Scale （-50, 50）-（50, -50）
' 定义直线两个端点坐标参数
LX1 = 10
LY1 = 10
LX2 = 90
LY2 = 90
' 画直线
Picture1.DrawRectangle 0, 0, LX2 - LX1, LY2 - LY1
End Sub
```
在这个示例中，通过设置 `Form1` 和 `Picture1` 的 `Scale` 属性，将坐标系变换到窗体的中心，并在 `Picture1` 上画一条直线。
建议
确保在编写代码时，理解并正确使用鼠标和键盘事件。
如果需要进行复杂的坐标系变换，建议详细阅读VB中关于坐标系变换的文档。
示例代码可以根据具体需求进行调整和扩展。