dim π as double π = 4*atn(1)
Private Sub Command1_Click() dim PI as double,Result as double PI=3.141592654 Result = PI * Rnd Print Result End Sub