Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim G, Z, a, b, c
        G = Me.Top
        Z = Me.Left
        For a = 1 To Val(cs.Text)                          'cs.text即是次数
            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2     'fw.text即是范围
            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            Me.Top = Me.Top + b
            Me.Left = Me.Left + c
        Next
        For a = 1 To Val(cs.Text)
            b = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            c = Rnd(1) * Val(fw.Text) - Val(fw.Text) / 2
            Me.Top = Me.Top - b
            Me.Left = Me.Left - c
        Next
        Me.Top = G
        Me.Left = Z
    End Sub
End Class

不错!支持!!呵呵














强弓男性治疗仪是根据美国数字阴茎增大 器和日本男性封闭循环式保育器技术，经国家食品药品监督管理局批准生产的国家准字号医疗器械。强弓男性治疗仪通过数控真空牵引，高频远红外电磁，脉冲水流按摩等功能，具有延长男性生殖器悬韧带，增加海绵体血容量。适用范围：阳痿、早泄、阴茎延长 、中老年阴茎萎缩、慢性前列腺炎。