Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' By: IVThaKiller
' Pleas give credits.
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Calculate()
End Sub
Private Sub RA_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
TextBox2.Clear()
End Sub
Private Sub RA_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
Calculate()
End Sub
Public Sub Calculate()
TextBox2.Text = TextBox1.Text / 105
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' By: IVThaKiller
' Pleas give credits.
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Calculate()
End Sub
Private Sub RA_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
TextBox2.Clear()
End Sub
Private Sub RA_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
Calculate()
End Sub
Public Sub Calculate()
TextBox2.Text = TextBox1.Text / 105
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' By: IVThaKiller
' Pleas give credits.
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Calculate()
End Sub
Private Sub RA_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClick
TextBox2.Clear()
End Sub
Private Sub RA_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
Calculate()
End Sub
Public Sub Calculate()
TextBox2.Text = TextBox1.Text / 105
End Sub
End Class
:carling:Copyright © 2026, NextGenUpdate.
All Rights Reserved.