```vb
Private Sub Command2_Click（）
Dim num1 As Double, num2 As Double, result As Double
num1 = Val（TextBox1.Text）
num2 = Val（TextBox2.Text）
result = num1 + num2
Label2.Caption = num1 & "+" & num2 & "=" & result
End Sub
```
在这个示例中，我们首先定义了三个双精度浮点数变量`num1`、`num2`和`result`。然后，我们通过`Val`函数将`TextBox1`和`TextBox2`中的文本转换为数字，并将它们分别赋值给`num1`和`num2`。接下来，我们计算`num1`和`num2`的和，并将结果存储在`result`变量中。最后，我们将结果显示在名为`Label2`的标签控件上。
你可以根据需要修改这个示例，以添加其他运算功能，例如减法、乘法和除法。你还可以添加更多的控件和事件处理程序，以实现更复杂的计算器功能。