[samawi]

السلام عليكم 

شباب صنعت برنامج بسيط اله حاسبة كما هو مبين في الصورة والكود المرفق 

ولكن عند النقر على اي زر يختفي فورم الاله الحاسبة تماما 

ما هو السبب ساعدوني جزاكم الله خير 

PHP كود :

Imports System.Math
Public Class Calculator
    '================== calculator
    Dim s1, s2 As Int64
    Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a0, adot As Int64
    Dim op, anum As String
    '==============================
    Private Sub Calculator_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub B1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1.Click
        Try
            Tstring.Text = Tstring.Text + "1"
            a1 = a1 + "1"
            anum = anum + "1"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2.Click
        Try
            Tstring.Text = Tstring.Text + "2"
            a2 = a2 + "2"
            anum = anum + "2"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3.Click
        Try
            Tstring.Text = Tstring.Text + "3"
            a3 = a3 + "3"
            anum = anum + "3"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bclear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bclear.Click
        Try
            Tstring.Clear()
            Tout.Clear()
            anum = ""
            Tstring.Focus()
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4.Click
        Try
            Tstring.Text = Tstring.Text + "4"
            a4 = a4 + "4"
            anum = anum + "4"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5.Click
        Try
            Tstring.Text = Tstring.Text + "5"
            a5 = a5 + "5"
            anum = anum + "5"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6.Click
        Try
            Tstring.Text = Tstring.Text + "6"
            a6 = a6 + "6"
            anum = anum + "6"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bsqr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bsqr.Click
        Try
            Dim sqr As Double
            sqr = anum ^ (1 / 2)
            Tstring.Text = Tstring.Text + "sqr"
            Tout.Text = Str(sqr)
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
        Try
            Tstring.Text = Tstring.Text + "7"
            a7 = a7 + "7"
            anum = anum + "7"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8.Click
        Try
            Tstring.Text = Tstring.Text + "8"
            a8 = a8 + "8"
            anum = anum + "8"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9.Click
        Try
            Tstring.Text = Tstring.Text + "9"
            a9 = a9 + "9"
            anum = anum + "9"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bpow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bpow.Click
        Try
            Dim Sum As Integer
            Sum = 0
            Sum = Sum + (anum * anum)
            Tstring.Text = Tstring.Text + "x^"
            Tout.Text = Str(Sum)
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub B0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B0.Click
        Try
            Tstring.Text = Tstring.Text + "0"
            a0 = a0 + "0"
            anum = anum + "0"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bdot_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdot.Click
        Try
            Tstring.Text = Tstring.Text + "."
            anum = anum + "."
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bfact_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bfact.Click
        Try
            Dim fac, i As Integer
            fac = 1
            For i = 1 To anum
                fac = fac * i
            Next
            Tstring.Text = Tstring.Text + "n!"
            Tout.Text = Str(fac)
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bblus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bblus.Click
        Try
            s1 = Val(anum)
            anum = 0
            Tstring.Text = Tstring.Text + "+"
            op = "+"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bmains_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bmains.Click
        Try
            s1 = Val(anum)
            anum = ""
            Tstring.Text = Tstring.Text + "-"
            op = "-"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bx.Click
        Try
            s1 = Val(anum)
            anum = ""
            Tstring.Text = Tstring.Text + "*"
            op = "*"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bdiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bdiv.Click
        Try
            s1 = Val(anum)
            anum = ""
            Tstring.Text = Tstring.Text + "/"
            op = "/"
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub Bequl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bequl.Click
        Try
            s2 = Val(anum)
            anum = ""
            If op = "+" Then
                Tout.Text = (s1 + s2)
            End If
            If op = "-" Then
                Tout.Text = (s1 - s2)
            End If
            If op = "*" Then
                Tout.Text = (s1 * s2)
            End If
            If op = "/" Then
                Tout.Text = (s1 / s2)
            End If
            Me.Hide()
        Catch ex As Exception
            MsgBox("some error", MsgBoxStyle.Critical)
        End Try
    End Sub
End Class 


---

هههههههههههههههههههه

العفو منكم يا شباب والله اني لم اعلم اني كتبت السطر البرمجي me.hide

الا بعد ان نشرت الاستفسار
اسمحوا لي ارجوا المعذرة

عسى ان تستفيدو ان شاء الله