在Visual Basic（VB）中，求两个数的最小公倍数（LCM）可以通过以下几种方法实现：
方法一：使用辗转相除法求最大公约数（GCD），然后利用公式 LCM（a, b） = （a * b） / GCD（a, b）
```vb
Private Sub Command1_Click（）
Dim m As Integer, n As Integer
Dim g As Integer
Dim t1 As Integer, t2 As Integer
m = InputBox（"第一个数"）
n = InputBox（"第二个数"）
t1 = m
t2 = n
g = IIf（m > n, m, n） ' t1, t2是临时变量
Do While g <> 0
If m Mod g = 0 And n Mod g = 0 Then Exit Do
g = g - 1
Loop
Label1.Caption = "最小公倍数为：" & （t1 * t2） / g
End Sub
```
方法二：使用循环和条件判断直接计算最小公倍数
```vb
Private Sub Command1_Click（）
Dim a As Integer, b As Integer
Dim i As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
For i = 1 To 10
If a = 0 Or b = 0 Then
MsgBox "!", 1, ""
Exit Sub
ElseIf i Mod a = 0 And i Mod b = 0 Then
Label1.Caption = i
Exit For
End If
Next i
End Sub
```
方法三：使用更高效的算法，如Stein算法
```vb
Function Min公倍数（A As Long, B As Long） As Long
Dim X As Long, Y As Long, K As Long， 最大公约数 As Long
X = IIf（A >= B, A, B） ' x存入最大值
Y = IIf（A <= B, A, B） ' y 存入最小值
Do
K = X Mod Y
If K = 0 Then Exit Do
X = Y
Y = K
Loop
最大公约数 = Y
Min公倍数 = A * B / 最大公约数
End Function
```
方法四：使用输入框和按钮，通过用户输入求最小公倍数
```vb
Private Sub Command1_Click（）
Dim a As Integer, b As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
Label1.Caption = "最小公倍数为：" & （a * b） / GCD（a, b）
End Sub
```
建议
选择合适的方法：
根据具体需求和程序复杂度选择合适的方法。辗转相除法是最常用的方法，但Stein算法在处理大数时更高效。
输入验证：
确保用户输入的是有效的整数，避免程序运行时出现错误。
代码注释：
为关键代码添加注释，方便他人理解和维护。
通过以上方法，你可以在VB中实现求两个数的最小公倍数的功能。