在VB编程中，实现数字翻转的方法如下：
使用循环和取余操作
```vb
Private Function ReverseNumber（ByVal number As Integer） As Integer
Dim reversedNumber As Integer = 0
Dim tempNumber As Integer = number
While tempNumber > 0
reversedNumber = （reversedNumber * 10） + （tempNumber Mod 10）
tempNumber = tempNumber \ 10
End While
Return reversedNumber
End Function
```
这个函数通过循环和取余操作，将输入的整数逐位取出并拼接到新的整数中，从而实现数字翻转。
使用内置函数
在某些版本的VB中，可以使用内置的字符串翻转函数。例如：
```vb
Private Sub Command1_Click（）
Dim Str As String
Str = Text1
Text2 = StrReverse（Str）
End Sub
```
这里使用了`StrReverse`函数将文本框中的字符串进行翻转。
图像处理中的翻转
如果需要翻转图像，可以使用`PictureBox`控件的`PaintPicture`方法，通过设置宽度或高度为负值来实现水平或纵向翻转。例如：
```vb
Private Sub Command2_Click（）
Picture1.PaintPicture Picture2.Picture, 0, 0, Picture1.Width, Picture1.Height
End Sub
```
这个例子中，`Picture1`是源图像，`Picture2`是目标图像，通过设置`Picture2`的宽度为负值，可以实现水平翻转。
根据你的具体需求选择合适的方法即可。如果是对数字进行翻转，建议使用第一个方法；如果是对字符串进行翻转，可以使用第二个方法；如果是对图像进行翻转，可以使用第三个方法。